home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / s_saver / pal.frm < prev    next >
Text File  |  1995-09-06  |  971b  |  41 lines
  1. VERSION 2.00
  2. Begin Form Palette 
  3.    BackColor       =   &H00000000&
  4.    ClientHeight    =   4020
  5.    ClientLeft      =   1095
  6.    ClientTop       =   1485
  7.    ClientWidth     =   7365
  8.    ControlBox      =   0   'False
  9.    Height          =   4425
  10.    Left            =   1035
  11.    LinkMode        =   1  'Source
  12.    LinkTopic       =   "Form2"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   4020
  16.    ScaleWidth      =   7365
  17.    Top             =   1140
  18.    Width           =   7485
  19. End
  20. DefInt A-Z
  21.  
  22.  
  23. Sub Form_Load ()
  24.     WindowState = 2
  25. End Sub
  26.  
  27. Sub Form_Paint ()
  28.     ScaleMode = 3   ' Set scale to pixels.
  29.     While Visible = True
  30.     Randomize
  31.     CX = Int((ScaleWidth + 1) * Rnd)
  32.     CY = Int((ScaleHeight + 1) * Rnd)
  33.     nBars = Int(51 * Rnd)
  34.     For Radius% = 0 To nBars    ' Set radius.
  35.         Circle (CX, CY), Radius%, RGB(Rnd * 255, Rnd * 255, Rnd * 255)
  36.         Ok = DoEvents()
  37.     Next Radius%
  38.     Wend
  39. End Sub
  40.  
  41.